module ProjectEuler6

let range = [1..100]
let square x = x * x
printf "%d" (square (List.sum range) - List.sum (List.map square range))
